`removeNA` <-
function(dataset) {
	# Get dataset dimension.
	rows = nrow(dataset)
	cols = ncol(dataset)

	vector = c()
	iter = 1

	# Find NA.
	for(i in 1:rows) {
		for(j in 1:cols) {
			if(is.na(dataset[i,j])) {
				# Remember this row.
				vector[iter] = i
				iter = iter+1		
			}
		}
	}
	# Remove rows with NA.
	dataset = dataset[-vector,]
	
	# Renumber rows.
	row.names(dataset) = c(1:nrow(dataset))

	return(dataset)
}

